home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / CALLDLL6.BAS < prev    next >
BASIC Source File  |  1996-02-01  |  1KB  |  56 lines
  1.  
  2.     'CALLDLL6.BAS  -  Make various API calls to play wave files, track
  3.     'the mouse, and move a window around.  Similar to CALLDLL5.BAS
  4.  
  5.     nomainwin
  6.  
  7.     struct point, x as short, y as short
  8.  
  9.     open "kernel" for dll as #kernel
  10.     open "user" for dll as #user
  11.     open "mmsystem" for dll as #mmsystem
  12.     statictext #aWindow.text, "", 5, 5, 60, 20
  13.     open "Me" for window as #aWindow
  14.  
  15.     print str$(playMode)
  16.  
  17.     wavefile$ = "chimes.wav"
  18.     playMode = 0
  19.     calldll #mmsystem, "sndPlaySound", _
  20.         wavefile$ as ptr, _
  21.         playMode as ushort, _
  22.         result as bool
  23.  
  24.     hndl = hwnd(#aWindow)
  25.  
  26.     for i = 1 to 150
  27.  
  28.         calldll #user, "GetCursorPos", _
  29.             point as struct, _
  30.             result as void
  31.  
  32.         x = point.x.struct
  33.         y = point.y.struct
  34.  
  35.         print #aWindow.text, x; ", "; y
  36.  
  37.         calldll #user, "MoveWindow", _
  38.             hndl as word, _
  39.             x as short, _
  40.             y as short, _
  41.             100 as short, _
  42.             100 as short, _
  43.             1 as word, _
  44.             result as void
  45.  
  46.     next x
  47.  
  48.     close #kernel
  49.     close #user
  50.     close #mmsystem
  51.     close #aWindow
  52.  
  53.     notice "Done."
  54.  
  55.     end
  56.